﻿Public Class FaaliyetGiris
	Inherits Process

	Public Overrides Sub GenericEvent(ByVal e As ProcessEventArgs)
		Select Case e.EventType
			Case EventType.Initialize
				Text = "Aylık Faaliyet Raporu Girişi"
				InitialHelp = "Yılı ve ayı girin."
				AddField("@Yil", "", Today.AddMonths(-1).Year, "Yılı girmelisiniz.")
				AddField("Ay", "nl", Today.AddMonths(-1).Month, "Ayı girmelisiniz.")
				StartBody()
				AddList()
				List.AddColumns("ad(;l;100%)")
				List.HeadersVisible = False
			Case EventType.ValidateForm
				Dim Table As New Recordset("Kod(s),Ad(s)")
				Table.Rows.Add("isyerisig", "Tescil Edilen İş/İşyeri ve Sigortalı Adetleri")
				Table.Rows.Add("teftis", "Yapılan Teftiş Sayıları")
				Table.Rows.Add("genel", "İş Kazası/Analık/Hastalık/İşsizlik Adetleri")
				Table.Rows.Add("tahsilat", "Tahsilatlar")
				Table.Rows.Add("kvodeme", "Kısa Vadeli Sigorta Kolları Ödemeleri")
				Table.Rows.Add("uvodeme", "Uzun Vadeli Sigorta Kolları Ödemeleri")
				Table.Rows.Add("yonetim", "Yönetim Giderleri")
				Table.Rows.Add("personel", "Personel İşleri")
				List.DataSource = Table
				List.HandleEnter = True
				Help = "Açmak istediğiniz grubun üzerine gelip Enter tuşuna basın ya da çift tıklayın."
				e.Result = True
				Buttons.Show("Reset")
			Case EventType.Activate
				Dim Process As New FaaliyetGirisDetay
				Process.AddArgument("yil", Input("Yil"))
				Process.AddArgument("ay", Input("Ay"))
				Process.AddArgument("kod", List.SelectedRow("Kod"))
				Window.Launch(Process)
				'Process.Run(Window)
		End Select
	End Sub

End Class
